home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Online / hsc / grafflwerk / hScMsg.rexx next >
OS/2 REXX Batch file  |  1996-07-30  |  3KB  |  105 lines
  1. /*
  2.  * hScMsg - invoke hsc and send messages to ScMsg
  3.  *
  4.  * $VER: hScMsg 1.0 (30.7.96)
  5.  *
  6.  * Copyright 1996 Thomas Aglassinger <agi@giga.or.at>
  7.  *
  8.  * This program is free software; you can redistribute it and/or modify
  9.  * it under the terms of the GNU General Public License as published by
  10.  * the Free Software Foundation; either version 2 of the License, or
  11.  * (at your option) any later version.
  12.  *
  13.  * This program is distributed in the hope that it will be useful,
  14.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16.  * GNU General Public License for more details.
  17.  *
  18.  * You should have received a copy of the GNU General Public License
  19.  * along with this program; if not, write to the Free Software
  20.  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21.  *
  22.  *--------------------------------------------------------------------------
  23.  *
  24.  * USAGE
  25.  *   rx hScMsg <filename> <hsc-options>
  26.  *
  27.  *   This script passes all options to hsc, and sets MSGFORMAT and
  28.  *   MSGFILE according to it's needs. Therefore, avoid these two
  29.  *   options when invoking hScMsg.
  30.  *
  31.  *   Note that you MUST pass the filename as first arg and that it
  32.  *   has to show up again in <hsc-options>
  33.  *
  34.  * EXAMPLE
  35.  *   rx hScMsg hugo.hsc FROM hugo.hsc TO hugo.html COMPACT RPLCENT
  36.  *             ^^^^^^^^      ^^^^^^^^
  37.  * BUGS
  38.  *   o filenames containig blanks won't work
  39.  *   o ScMsg can't handle all message-classes of hsc, therefor only
  40.  *     "Warning" and "Error" are used for display
  41.  */
  42.  
  43. ScMsgPath = "sc:c/ScMsg"
  44. hscPath   = "hsc"
  45. TmpFile = 'T:hScMsg' || PRAGMA('ID') || '.tmp'
  46.  
  47. Options Failat 21
  48.  
  49. Parse ARG Filename hscOpts
  50.  
  51. /* display help and exit */
  52. IF ((Filename="") | (Filename='?')) THEN DO
  53.     SAY 'Usage: hScMsg <filename> <hsc-options>'
  54.     SAY '       (see source-code for details)'
  55.     Exit
  56. END
  57.  
  58. /* invoke hsc */
  59. CmdLine = hscPath 'MSGFILE=' || TmpFile 'MSGFORMAT="%f:::%y:::%c:::%i:::%m"' hscOpts
  60. Address Command CmdLine
  61.  
  62. /* invoke ScMsg, if it's not already there */
  63. IF ~Show('ports', 'SC_SCMSG') THEN DO
  64.     Address Command 'Run <>nil:' SCMSGPATH 'HIDDEN'
  65.     Address Command 'WaitForPort SC_SCMSG'
  66. END
  67.  
  68. /* check, if ScMsg showed up */
  69. IF ~Show('ports', 'SC_SCMSG') THEN DO
  70.     Say "Couldn't start ScMsg, giving up."
  71.     Exit 10
  72. END
  73.  
  74. /* remove old messages in ScMsg-window */
  75. Address 'SC_SCMSG' DelFile FileName
  76.  
  77. /* store return-code of hsc */
  78. hScMsgRC = RC
  79.  
  80. /* process message file, if exists */
  81. IF Open('File', TmpFile, 'R') THEN DO
  82.  
  83.     DO UNTIL Eof('File')
  84.         Line = ReadLn('File')
  85.  
  86.         /* extract information from current message-line */
  87.         Parse VAR Line File ':::' Line ':::' MsgClass ':::' MsgNum ':::' Msg
  88.         IF ((MsgClass='Error') | (MsgClass='Fatal Error')) THEN
  89.             MsgClass='Error'
  90.         ELSE
  91.             MsgClass='Warning'
  92.  
  93.         /* Send message to ScMsg */
  94.         Address  'SC_SCMSG' NewMsg '"'||FileName||'"' '"'||FileName||'"' Line '0 "" 0' MsgClass MsgNum Msg
  95.     END
  96.     Address 'SC_SCMSG' Show Activate
  97.  
  98.     /* cleanup */
  99.     Call Close('File')
  100.     Address Command 'Delete quiet' TmpFile
  101. END
  102.  
  103. /* exit with returncode of hsc */
  104. Exit hScMsgRC
  105.